Amiga Plus 1998 #2/Amiga Plus CD - 1998 - No. 2.iso/demo-versionen/artikelfinder/install-afinder

Text File | 1997-09-19 | 15KB | 748 lines

;  $VER: InstallAFinder 1.17 (17.09.97) Copyright © 1994-97 Falke & Bierei GbR, Berlin

(set destdev "DH0:")
(set destdir "Artikel-Finder")
(set Program_dest destdev)

(set @default-dest "")

(set p_pfad "ARTIKELFinder")
(set demo_name "ARTIKELFinder_D")
(set p_name  "ARTIKELFinder")

(set spfad0 "ARTIKELFinder_A")
(set spfad1 "ARTIKELFinder_D")
(set spfad2 "ARTIKELFinder_P")
(set spfad3 "ARTIKELFinder_S")
(set spfad4 "ARTIKELFinder_X")
(set spfad5 "ARTIKELFinder_K")
(set spfad6 "ARTIKELFinder_B")

(set fdec "c/FDec")
(set fdecext ".fdc")

(set disk_af 0)

(set disk_am 10)
(set disk_ad 11)
(set disk_ap 12)
(set disk_as 13)
(set disk_ax 14)
(set disk_ks 15)
(set disk_vp 16)

(set dbsnum 7)

(set dname0 "Amiga")
(set dname1 "AmigaDOS")
(set dname2 "AmigaPlus")
(set dname3 "AmigaSpecial")
(set dname4 "AmigaExtra")
(set dname5 "Kickstart")
(set dname6 "Artikel")

(set ndisk0 2)
(set ndisk1 1)
(set ndisk2 2)
(set ndisk3 2)
(set ndisk4 1)
(set ndisk5 1)
(set ndisk6 1)

(set dinstall 0)
(set do_demo 0)

(set overwrite-help "Wenn Sie diesen Requester mit 'Ja' beantworten, wird ein eventuell schon vorhandener Datenbestand überschrieben!")

(set defuser @user-level)

(set #no "Nein")
(set #yes "Ja")

(set #iconnew "\nWollen Sie das bereits bestehende ARTIKELFinder-Icon mit dem Icon von der Installationsdiskette überschreiben?\nWenn Sie bereits ToolTypes verändert haben, sollten Sie 'Nein' wählen.\n")


(procedure copyMain
    (set ppart_1 "Hauptprogramm")
    (set ppart_2 "Hauptprogramms")
    (chooseDir)

    (set prog_pfad p_pfad)
    (set prog_name p_name)

    (set source_disk prog_pfad)
    (if (= do_demo 0) (
        (getDisk)
    )
    (
        (set prog_pfad "")
    ))

    (if (<> prog_pfad "")
        (set sdir (cat prog_pfad ":"))
        (set sdir "")
    )

    (set file (tackon sdir prog_name))
    (set dfile (tackon @default-dest prog_name))

    (checkMain)

    (if (= docopy 1) (docopyMain))

    (copyTool)

    (set dfile "AFinder.guide")
    (set file (tackon sdir dfile))
    (docopyGuides)

    (set dfile "ReadMe.guide")
    (set file (tackon sdir dfile))
    (docopyGuides)

    (set file (tackon sdir "pix"))
    (set destdir (tackon Program_dest "pix"))
    (copyfiles
        (source    file)
        (dest        destdir)
        (all)
    )

    (set file (tackon sdir "arexx"))
    (set destdir (tackon Program_dest "arexx"))
    (copyfiles
        (source    file)
        (dest        destdir)
        (all)
    )

)

(procedure docopyGuides
    (if (= (exists file) 1)
        (copyfiles
            (source file)
            (dest Program_dest)
            (infos)
            (optional "nofail")
        )
    )

    (if (>= os_ver 39)
        (tooltype
            (dest (tackon Program_dest dfile))
            (setdefaulttool "MultiView")
        )
        (tooltype
            (dest (tackon Program_dest dfile))
            (setdefaulttool "AmigaGuide")
        )
    )
)

(procedure docopyMain
    (set pcount 3)
    (set acount 0)
    (complete (/ (* (/ 10000 (+ pcount dbscount)) acount) 100) )

    (if (exists (cat (tackon Program_dest prog_name) ".info"))
        (set nocopyicon (askchoice    (choices #yes #no)
                                            (prompt #iconnew)
                                            (help   #iconnew)
                                            (default 1)
                        )
        )
        (set nocopyicon 0)
    )

    (if (= nocopyicon 1)
        (
            (copyfiles
                (source file)
                (dest Program_dest)
                (optional "force")
            )
        )
        (
            (copyfiles
                (source file)
                (dest Program_dest)
                (infos)
                (optional "force")
            )
        )
    )

    (set acount 2)
    (complete (/ (* (/ 10000 (+ pcount dbscount)) acount) 100) )

    (if (= do_demo 1)
        (
            (set file prog_pfad)
        )
    )
    (if (<> dbscount 0)
        (
            (set acount 3)
            (complete (/ (* (/ 10000 (+ pcount dbscount)) acount) 100) )
        )
        (complete 100)
    )
)

(procedure checkMain
    (if (= (exists dfile) 1)
        (
            (set ver_source (getversion file))
            (set ver_s (/ ver_source 65536))
            (set rev_s (- ver_source (* ver_s 65536)))

            (set ver_dest (getversion dfile))
            (set ver_d (/ ver_dest 65536))
            (set rev_d (- ver_dest (* ver_d 65536)))

            (if (= ver_source ver_dest)
                (
                    (set docopy
                        (askbool
                            (prompt    "Die Version "ver_s"."rev_s" des Programmes \""
                                        prog_name"\" ist vermutlich schon komplett in dem "
                                        "angegebenen Zielverzeichnis installiert.\n"
                                        "Wollen sie das Hauptprogramm erneut "
                                        "installieren?")
                            (help        "Wenn Sie diesen Requester mit 'Ja' "
                                        "beantworten, wird eine eventuell schon "
                                        "vorhandene Version überschrieben!")
                            (choices "Ja" "Nein")
                        )
                    )
                    (if (= @user-level 0) (set docopy 1))
                )
            )
            (if (< ver_source ver_dest)
                (
                    (set docopy
                        (askbool
                            (prompt    "ACHTUNG! In dem angegebenen Zielverzeichnis "
                                        "befindet sich bereits die Version "
                                        ver_d"."rev_d" des Programmes \""prog_name"\".\n"
                                        "Wollen sie das Hauptprogramm mit der Version "
                                        ver_s"."rev_s" erneut installieren?")
                            (help        "Wenn Sie diesen Requester mit 'Ja' "
                                        "beantworten, wird eine eventuell schon "
                                        "vorhandene neuere Version überschrieben!")
                            (choices "Ja" "Nein")
                        )
                    )
                    (if (= @user-level 0) (set docopy 0))
                )
            )
            (if (> ver_source ver_dest)
                (
                    (set docopy
                        (askbool
                            (prompt    "In dem angegebenen Zielverzeichnis "
                                        "befindet sich die Version "
                                        ver_d"."rev_d" des Programmes \""prog_name"\".\n"
                                        "Wollen sie das Hauptprogramm mit der Version "
                                        ver_s"."rev_s" installieren?")
                            (help        "Wenn Sie diesen Requester mit 'Ja' "
                                        "beantworten, wird eine eventuell schon "
                                        "vorhandene ältere Version überschrieben!")
                            (choices "Ja" "Nein")
                        )
                    )
                    (if (= @user-level 0) (set docopy 1))
                )
            )
        )

        (
            (set docopy 1)
        )
    )
)

(procedure copyTool
    (set docopy
        (askbool
            (prompt    "ToolProgramme installieren?")
            (help        "Sie können jetzt alle benötigten ToolProgramme, die\n"
                        "sich in 'c' befinden, in das Verzeichnis 'sys:c' kopieren.")
            (choices "Ja" "Nein")
        )
    )
    (if (= @user-level 0) (set docopy 1))

    (if (= docopy 1) (
        (set sourcedir    "c")
        (set destdir    ("sys:c"))

        (copyfiles
            (source    sourcedir)
            (dest        destdir)
            (all)
        )
        )
    )
)

(procedure copyDBS
    (set ppart_2 "Datenbestandes")

    (set a 0)
    (set b 0)

    (while (< a dbscount)

        (complete (/ (* (/ 10000 (+ dbscount pcount)) (+ a acount)) 100) )

        (until (BITAND 1 (shiftright answer2 b)) (set b (+ b 1)))
        (set dbs b)

        (copynormalDBS)

        (set a (+ a 1))
        (set b (+ b 1))

    )
    (complete 100)
)

(procedure copydemoDBS
    (set file (tackon sdir "data"))
    (set destdir (tackon Program_dest "data"))
    (copyfiles
        (source    file)
        (dest        destdir)
        (all)
    )
)

(procedure copynormalDBS
    (select dbs
        (
            (set spfad spfad0)
            (set fname dname0)
            (set ndisk ndisk0)
        )
        (
            (set spfad spfad6)
            (set fname dname1)
            (set ndisk ndisk1)
        )
        (
            (set spfad spfad2)
            (set fname dname2)
            (set ndisk ndisk2)
        )
        (
            (set spfad spfad3)
            (set fname dname3)
            (set ndisk ndisk3)
        )
        (
            (set spfad spfad6)
            (set fname dname4)
            (set ndisk ndisk4)
        )
        (
            (set spfad spfad6)
            (set fname dname5)
            (set ndisk ndisk5)
        )
    )

    (set ofile spfad)
    (set file ofile)
    (set file (cat file ":"))

    (set continue 0)
    (set source_disk ofile)

    (if (= (exists (cat source_disk ":") (noreq) ) 0)
        (
            (set repeat 0)
            (if (= @user-level 0) (user 1) )
            (while (= repeat 0)
                (set retry
                    (askbool
                        (prompt    "Bitte legen sie die Diskette \""source_disk"\" in ein "
                                    "Laufwerk.")
                        (help        @askdisk-help"\nWenn Sie einen Datenbestand "
                                    "nicht installieren wollen, klicken Sie auf \"Auslassen\".")
                        (choices "Weiter" "Auslassen")
                    )
                )
                (if (= retry 1)
                    (set repeat (exists (cat source_disk ":") (noreq) ))
                    (
                        (set repeat 1)
                        (set continue 1)
                    )
                )
            )
            (user defuser)
        )
    )

    (if (= continue 0)
        (
            (docopyDBS)
        )
    )
)

(procedure docopyDBS
    (set c 1)
    (while (<= c ndisk)

        (if (> ndisk 1)
            (set cxt(cat file fname "_" c "/" fname "_" c))
            (set cxt(cat file fname "/" fname))
        )

        (if (> ndisk 1)
            (set filename (cat fname "_" c))
            (set filename fname)
        )
        (if (= dinstall 1)
            (set ppart_1 (cat "Datenbestand " filename))
            (set ppart_1 "Datenbestände")
        )

        (if (= a 0)
            (
                (if (= c 1)
                    (
                        (chooseDir)
                    )
                    (
                        (if (= dinstall 1)
                            (
                                (chooseDir)
                            )
                        )
                    )
                )
            )
            (
                (if (= dinstall 1)
                    (
                        (chooseDir)
                    )
                )
            )
        )

        (checkDBS)

        (if (= docopy 1)    (
            (set ofname (cat cxt ".dat" fdecext))
            (callFDec)
            (set ofname (cat cxt ".ext" fdecext))
            (callFDec)
            (set ofname (cat cxt ".info" fdecext))
            (callFDec)
            (set ofname (cat cxt ".the" fdecext))
            (callFDec)
            (set ofname (cat cxt ".x01" fdecext))
            (if (= (exists ofname) 1)    (
                (callFDec)
            )(
                (set ofname (cat fname "_" c ".x01"))
                (delxfiles)
            ))
            (set ofname (cat cxt ".x03" fdecext))
            (if (= (exists ofname) 1)    (
                (callFDec)
            )(
                (set ofname (cat fname "_" c ".x03"))
                (delxfiles)
            ))
            (set ofname (cat cxt ".x06" fdecext))
            (if (= (exists ofname) 1)    (
                (callFDec)
            )(
                (set ofname (cat fname "_" c ".x06"))
                (delxfiles)
            ))
            (set ofname (cat cxt ".x11" fdecext))
            (if (= (exists ofname) 1)    (
                (callFDec)
            )(
                (set ofname (cat fname "_" c ".x11"))
                (delxfiles)
            ))
        ))

        (set c (+ c 1))

    )
)

(procedure callFDec
    (set fdecopts (cat " \"-p" Program_dest "\" " ofname))

    (if (= docopy 1)
        (set docopy (exists ofname))
    )

    (if (= docopy 1)
        (
            (working    "Entpacke Datenbestand\n\"" filename
                        "\"\nin Verzeichnis\n\""Program_dest "\"")

            (set fdecret (run (cat file fdec) fdecopts ))
            (if (<> fdecret 0)
                (abort "Fehler beim Dekomprimieren: " fdecret)
            )
        )
    )
)

(procedure delxfiles
    (delete
        (tackon Program_dest ofname)
        (optional    force)
    )
)

(procedure checkDBS
    (set dname (cat filename ".dat"))
    (set dfile (tackon @default-dest dname))
    (if (= (exists dfile) 1)
        (
            (set sfile (cat cxt ".dat" fdecext))

            (set check_s (getsize sfile))
            (set check_d (getsize dfile))

            (if (= check_s check_d)
                (
                    (set docopy
                        (askbool
                            (prompt    "Der Datenbestand \""dname"\" ist "
                                        "vermutlich schon komplett in dem angegebenen "
                                        "Zielverzeichnis installiert.\nWollen sie "
                                        "den Datenbestand erneut installieren?")
                            (help        overwrite-help)
                            (choices    "Ja" "Nein")
                        )
                    )
                    (if (= @user-level 0) (set docopy 1))

                )

                (
                    (if (earlier sfile dfile)
                        (
                            (set docopy
                                (askbool
                                    (prompt    "Der Datenbestand \""dname"\" ist "
                                                "vermutlich bereits in einer neueren "
                                                "Version in dem angegebenen "
                                                "Zielverzeichnis installiert.\nWollen sie "
                                                "den Datenbestand trotzdem installieren?")
                                    (help        overwrite-help)
                                    (choices    "Ja" "Nein")
                                )
                            )
                            (if (= @user-level 0) (set docopy 0))
                        )

                        (
                            (set docopy
                                (askbool
                                    (prompt    "Der Datenbestand \""dname"\" ist "
                                                "vermutlich in einer älteren Version in "
                                                "dem angegebenen Zielverzeichnis bereits "
                                                "installiert.\nWollen sie den neuen "
                                                "Datenbestand installieren?")
                                    (help     overwrite-help)
                                    (choices "Ja" "Nein")
                                )
                            )
                            (if (= @user-level 0) (set docopy 1))
                        )
                    )
                )
            )
        )
        (
            (set docopy 1)
        )
    )
)

(procedure getMags
    (if (= @user-level 0) (user 1) )

    (set def 0)
    (if (= diskid disk_am) (set def 1))
    (if (= diskid disk_ad) (set def 2))
    (if (= diskid disk_ap) (set def 4))
    (if (= diskid disk_as) (set def 8))
    (if (= diskid disk_ax) (set def 16))
    (if (= diskid disk_ks) (set def 32))
    (if (= diskid disk_vp) (set def 50))

    (set answer2
        (askoptions
            (prompt    "Welche Datenbestände sollen installiert werden?")
            (help        "Wählen Sie die Datenbestände aus, die sie installieren "
                        "möchten.\nEs können dabei mehrere Datenbestände auf "
                        "einmal ausgewählt werden.")
            (choices    "Amiga-Magazin" "AmigaDOS" "AmigaPlus" "AmigaSpecial"
                        "AmigaSpecial Extra" "Kickstart")
            (default def)
        )
    )

    (user defuser)

    (set a 0)
    (set dbscount 0)
    (while (< a dbsnum)
        (if (BITAND 1 (shiftright answer2 a)) (set dbscount (+ dbscount 1)) )
        (set a (+ a 1))
    )
)

(procedure chooseDir
    (set ptext ("Bitte Verzeichnis für \n%s auswählen" ppart_1))

    (if (= (exists destdev (noreq)) 0)
        (
            (set destdev (cat (getdevice "sys:") ":"))
            (set Program_dest destdev)
        )
    )
    (if (= dinstall 0)
        (set Program_dest (cat destdev destdir))
    )
    (set @default-dest Program_dest)

    (if (= dinstall 1)
        (
            (user 1)
        )
    )

    (set Program_dest
        (askdir
            (prompt  ptext)
            (help        "Sie müssen jetzt den Pfad des Verzeichnisses angeben, "
                        "in das die Dateien kopiert werden sollen.\n"
                        "Noch nicht vorhandene Verzeichnisse können von diesem "
                        "Installationprogramm aus angelegt werden und "
                        "mit einem Schubladen-Icon versehen werden.")
            (default    Program_dest)
            (newpath)
            (disk)
        )
    )

    (if (= @default-dest Program_dest)
        (
            (if (= (exists @default-dest) 0)
                (makedir @default-dest
                        (infos)
                )
            )
        )
        (
            (set @default-dest Program_dest)
        )
    )

    (user defuser)
)

(procedure getDisk
    (set disk-help ("Die Diskette \"%s\" wird benötigt, damit alle Dateien des %s in das angegebene Zielverzeichnis kopiert werden können." source_disk ppart_2))

    (askdisk
        (prompt    "Bitte legen sie die Diskette \""source_disk"\" in ein "
                    "Laufwerk.")
        (help        disk-help)
        (dest        source_disk)
    )
)

(set current_dir (expandpath ""))
(if (= @app-name demo_name) (set do_demo 1))

(set diskid -1)
(if (= current_dir (cat p_pfad ":")) (set diskid disk_af))

(if (= current_dir (cat spfad0 ":")) (set diskid disk_am))
(if (= current_dir (cat spfad1 ":")) (set diskid disk_ad))
(if (= current_dir (cat spfad2 ":")) (set diskid disk_ap))
(if (= current_dir (cat spfad3 ":")) (set diskid disk_as))
(if (= current_dir (cat spfad4 ":")) (set diskid disk_ax))
(if (= current_dir (cat spfad5 ":")) (set diskid disk_ks))
(if (= current_dir (cat spfad6 ":")) (set diskid disk_vp))

(set vernum (getversion))
(set os_ver (/ vernum 65536))
(set os_rev (- vernum (* os_ver 65536)))

(if (= @user-level 0) (user 1))
(if (>= diskid disk_am) (set def 1) (set def 0))
(if (= do_demo 0) (
    (set dinstall
        (askchoice
            (prompt    "Wo sollen die Dateien installiert werden?")
            (help        "Sie können die Dateien entweder auf Diskette "
                        "oder auf Festplatte installieren.\n\n"
                        "Wenn sie 'Festplatte' wählen, werden alle ausgewählten "
                        "Datenbestände in einem Verzeichnis gespeichert.\n"
                        "Wenn sie 'Diskette' wählen, kann dagegen für jeden "
                        "Teil-Datenbestand ein eigenes Verzeichnis ausgewählt werden.")
            (choices    "Festplatte" "Diskette")
            (default    dinstall)
        )
    )
    (set answer1
        (askchoice
            (prompt    "Welche Dateien sollen installiert werden?")
            (help        "Sie können entweder das Hauptprogramm, einzelne "
                        "Datenbestände oder beides installieren.")
            (choices    "ARTIKELFinder" "Datenbestände" "Beides")
            (default    def)
        )
    )
) (
    (set dinstall 0)
    (set answer1 2)
))

(user defuser)

(select answer1
    (
        (copyMain)
    )
    (
        (if (= do_demo 0) (
            (getMags)
            (copyDBS)
        )(
            (copydemoDBS)
        ))
    )
    (
        (if (= do_demo 0) (getMags))
        (copyMain)
        (set temp-dest @default-dest)
        (if (= do_demo 0)
            (copyDBS)
            (copydemoDBS)
        )
        (set @default-dest temp-dest)
    )
)

(exit)